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BCA/L/E DACTEST.BCA; RESUME SMALL. BOOT 

Authors: Bruce Horn and Kim McCall 

Last changed: February 6, 1979 10:53 PM by BH 

This test uses the DAC to produce tones 

Waveform = Sine, with Sampling technique 

by Saunders 



predefine "8086Predefs.sr' 



; Ports: 

dacout = OCO 
dacstatus = 044 
dacsampleselect = 060 



;constants: 
fifoready = 4 
UseChannelA = 
UseChannelB = 
TableLength = 
DurMult = 178 

;DAC clock rate 
S16Khz = 
SBKhz = 



;FIFO input ready-output rdy= 
COOO 

8000 ;Must OR all arguments for output to 60H 
200 ;# of values in the table {512 decimal) 
;cycles per sixtieth of quarter note 



SaKhz = 
SbKhz = 
ScKhz = 
SdKhz = 
SeKhz = 
SlKhz = 
ClockedAt= 



0400 
0800 
OCOO 
1000 
1400 
1800 
ICOO 
16000 



; 16000 samples/sec is clock rate 



;Output levels: 

Low = 07FFF ;Lowest level (0 volts out) 
MidLevel = 04000 ;Mid level, i.e. zero line (5v) 
High = 00000 ;Highest level (10 volts out) 

.Loc 1000 
DacTest : 

jmp Beep 

duration: .blk 2 ;in units of 1 sixtieth of a quarter note 
pitch: .blk 2 ;a code # saying what pitch this is 
intDelt: .blk 2 ;for holding the whole part of the delta 
fracDelt: .blk 2 ;for holding the fractional part of the 



ValueTable: 



DeltaTable; 



•GetNoList "SineWaveTbl .bca" 



.GetNoList "DeltaTable. bca' 



Beep: 
mov 
outw 

TOCfV 

mov 
mill 
inov 
mov 
mov 
cmp 
jne 



ax,#S16khz ; select 16khz sampling 

dacsairqjlesolect 

ax.durattan ;in 90tbs of a second 

cx,#DurMiin ^ 

ex ;gives # of samples for this jr^oite 

ex, ax ; store cycle counter in ex 

ax, pitch ; load pitch 

dx.#MidLevel 

ax.#0 

SetPiteh 



WaitMore: 

call WaltReady 

mov ax.dx ;just keep dac at midlevel 

shl ax 

outw dacdut ;send midlevel to dac 

loopnz WaitMore 

ret -.return to caller 



SetPiteh: 

mov si ,ax 
dec si 



;set offset to pitch 
;correct for = rest 
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152B Dl E6 77 shl si ;multiply by 4 to 

152D Dl E6 78 shl si ; index the delta table 

152F 8B 84 OD 14 79 mov ax ,Del taTableIsi ;find delta for stepping thru 

80 ; sine table 

1533 A3 07 10 81 mov intDelt.ax ;store int part 

1536 FF C6 82 inc si ; increment offset 

1538 FF C6 83 inc si ; 

153A 8B 84 OD 14 84 mov ax.DeltaTable! si ;get and store frac part 

153E A3 09 10 85 mov fracDelt.ax 

1541 28 FF 86 sub di.di ; init i part offset 

1543 2B DB 87 sub bx.bx ;init frac part holder 

88 

89 CycleAgain: 

1545 E8 25 00 90 call WaitReady -.wait for the dac fifo to unload 

1548 8B C2 91 mov ax.dx ;get starting voltage 

154A Dl E7 92 shl di ;mult by 2 for word indexing 

154C 03 85 OB 10 93 add ax.ValueTableldi -.offset voltage by sine 

1550 Dl EO 94 shl ax 

1552 E7 CO 95 outw dacout ;send to dac 

1554 Dl EF 96 shr di ;correct for earlier shl 

1556 03 IE 09 10 97 add bx.fracDelt ;augment frac part holder 

155A 13 3E 07 10 98 adc di.intDelt ;augment i part holder (? carry) 

155E 81 FF 00 02 99 cmp di ,#TableLength ;have we looped around table? 

1562 7C 04 100 jl DecDur ;if not, jump one line 

1564 81 EF 00 02 101 sub di ,#TableLength ;if so reset i-part offset 

102 DecDur: 

1568 FF C9 103 dec ex 

156A 75 D9 104 jnz CycleAgain ;decrement duration count 

156C C3 105 ret ; return to caller 

106 

107 WaitReady: 

156D E5 44 108 inw dacstatus ;get status word 

156F A9 04 00 109 test ax ,#f ifoready ;is dac ready? 

1572 75 F9 110 jnz WaitReady ;no, try again, otherwise... 

1574 C3 111 ret ;return to caller 

112 

113 

114 

115 .END 



